Procedure Ftri (P:pointer;x1,y1,x2,y2,x3,y3:integer;c:byte);far;external;
{$L ftri.obj}
